home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlx_sq21.zip / SSL.SLT < prev    next >
Text File  |  1992-02-06  |  1KB  |  36 lines
  1. //-----------------------------------------------------------
  2. // SSL.SL? Save Status Line.
  3.  
  4. // Please look at the comments through the whole file, and modify to
  5. // suit your needs, BEFORE you use it. Then recompile with CS SSL.
  6. //-----------------------------------------------------------
  7.  
  8. // If you have suggestions for improving this script, please suggest
  9. // improvements to me via old-fashioned snail-mail to:
  10.  
  11. // Author:  Inge Vabekk
  12. //          Hamangskogen 108
  13. //          N-1300 SANDVIKA
  14. //          NORWAY
  15. //          tel. (472) 546 396
  16.  
  17. //-----------------------------------------------------------
  18. // Script starts here.
  19. //-----------------------------------------------------------
  20.  
  21. main()
  22. {
  23. str sline [5];         // Room for (part of) status line.
  24. int number;            // Line number.
  25.  
  26.   for (number=0; number<54;++number)   // Find status line.         
  27.   { vgetchrs(50,number,sline,0,5);
  28.     if (subchr(sline,0)==179 && subchr(sline,4)==179)
  29.       break;
  30.     else if (number==0)                // Skip lines 1-23.
  31.       number = 23;
  32.   }
  33.   if (number >= 54) number=0;
  34.   return (number);                     // Return line number.
  35. }
  36.